home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 September / 1984-09.d64 / screen head_vic (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  39 lines
  1. 10 t=0:forj=688to703:readk:t=t+k:pokej,k:next
  2. 15 ift<>3078thenprint"error in data statements":stop
  3. 20 t=0:forj=828to978:readk:t=t+k:pokej,k:next
  4. 25 ift<>17289thenprint"error in data statements":stop
  5. 30 poke249,0
  6. 688 data32,188,190,226,172,225,191,251
  7. 696 data187,255,161,236,162,254,252,96
  8. 828 data 169,128,133,004,173,005
  9. 834 data 144,041,002,240,004,169
  10. 840 data 136,133,004,169,000,162
  11. 846 data 003,006,250,042,202,208
  12. 852 data 250,024,101,004,133,004
  13. 858 data 165,250,133,003,169,000
  14. 864 data 133,250,169,005,133,002
  15. 870 data 160,000,177,003,133,005
  16. 876 data 230,003,177,003,133,006
  17. 882 data 230,003,198,002,240,028
  18. 888 data 162,004,169,000,006,006
  19. 894 data 042,006,006,042,006,005
  20. 900 data 042,006,005,042,164,250
  21. 906 data 153,048,002,230,250,202
  22. 912 data 208,232,240,210,160,000
  23. 918 data 166,249,240,008,169
  24. 923 data 029:rem 032 if using printer
  25. 924 data 032,210,255,202,208,250
  26. 930 data 169,004,133,006,185,048
  27. 936 data 002,170,189,176,002,133
  28. 942 data 005,041,064,240,005,169
  29. 948 data 018,032,210,255,165,005
  30. 954 data 041,191,032,210,255,169
  31. 960 data 146,032,210,255,200,198
  32. 966 data 006,208,221,169,013,032
  33. 972 data 210,255,192,016,208,196
  34. 978 data 096
  35. 1000 print"[147] x=number (0 - 17)"
  36. 1001 print" y=number (0 - 255)"
  37. 1003 print" poke 249,x (spacing)":print" poke 250,y (letter)"
  38. 1004 print" sys828 to activate"
  39.